home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / ipdldemo.exe / lha / GTOPIDIR.XFU < prev    next >
Text File  |  1991-02-27  |  267b  |  3 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<< IFERR 'xFgP' PURGE OBJ\-> \-> id \<< HOME xFxD EVAL 1 id SIZE FOR i id i GET IF { HOME UPDIR } OVER POS 15 TVARS 3 PICK POS OR THEN EVAL ELSE IF VARS OVER POS NOT THEN DUP CRDIR EVAL ELSE DROP 0 DOERR END END NEXT \>> THEN CLOSEIO END \>> 
  3.